PROCEDURE Conact (Action : Integer) ;

  { Procedure to clear screen, erase line, move cursor, etc., for Micro-Term
    ACT-IV terminal; duplicates functions of "Conact" in Pascal/M & UCSD.
    Change codes as necessary for your terminal functions.		     }

BEGIN

  CASE Action OF
    0 : BEGIN		    { Clear screen and go to "home" position }
	  Write (Chr (12)) ;
	  Write (Chr (0)) ;
	  Write (Chr (0)) ;
	END ;
    1 : Write (Chr (30)) ;  { Erase to end of current line }
    2 : Write (Chr (26)) ;  { Move cursor up one line }
    3 : Write (Chr (11)) ;  { Move cursor down one line }
    4 : Write (Chr (25)) ;  { Move cursor left one character }
    5 : Write (Chr (24)) ;  { Move cursor right one character }
    6 : Write (Chr (127)) ; { Delete character at cursor position }
    7 : Write (Chr (0)) ;   { Insert character -- N/A on ACT-IV }
  END { CASE } ;

END { Conact } ;
